#lang racket
(require rackunit)
(require rackunit/text-ui)
(require "2.rkt")

(check-equal? (lat? '(1 2 3)) #t "list with atoms") 
(check-equal? (lat? '(1 '(2) 3)) #f "list with atoms and list")

(check-equal? (member? 2 '(1)) #f "list is not includes atom")
(check-equal? (member? 2 '(1 2 3)) #t "list is includes atom")


